home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / jatic.cfg < prev    next >
Text File  |  1991-10-19  |  2KB  |  108 lines
  1. /*******************************************************************
  2. /*
  3. /*    JATIC オートダイアル用
  4. /*
  5. /*    1991. 6.24
  6. /*
  7. /*        By TARO    (JATIC ID : D23)
  8. /*
  9. /*******************************************************************
  10.  
  11. jatic_dial {
  12.  
  13. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  14.     DIAL     = "0427-23-9072A";
  15. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  16.  
  17.     while ( _JAT_ID = "" )
  18.     {    while ( _JAT_PASSWORD = "" )
  19.         {    jatic_setup()
  20.             if ( VAL ! 0 ) { return (-1) }
  21.         }
  22.     }
  23.     ID       = _JAT_ID;
  24.     PASSWORD = _JAT_PASSWORD;
  25.  
  26.     term_puts("ATZ\r")
  27.     term_switch( 5,"OK\r")
  28.     if ( VAL < 0 ) { return (-1)}
  29.  
  30.     tel_call()
  31.     if ( VAL < 0 ) { return (-1)}
  32.  
  33.     term_switch( 30, "ＩＤを入力してください :")
  34.     if ( VAL < 0 ) { return (-1)}
  35.     wait(1)
  36.     term_puts("\(ID)\r")
  37.  
  38.     term_switch( 30, "パスワードを入力してください :")
  39.     if ( VAL < 0 ) { return (-1)}
  40.     wait(1)
  41.     term_puts("\(PASSWORD)\r")
  42.  
  43.     return    (0)
  44. }
  45.  
  46. str_off {
  47.     wind_size_set(x,y,32,32)
  48.     wind_open()
  49.     graph("palette",7,0,0,0)
  50. }
  51. str_on {
  52.     graph("palette",7,176,176,192)
  53.     wind_close()
  54.     wind_init()
  55. }
  56.  
  57.  
  58. jatic_setup {
  59.     ID       = _JAT_ID;
  60.     PASSWORD = _JAT_PASSWORD;
  61.  
  62.     if ( ID = "" )
  63.     {    ID = "GUEST";
  64.         PASSWORD = "";
  65.     }
  66.     mosget("sw","x","y")
  67.     menu_input("ID",9, x,y, C_CYAN, "JATIC のID を入力してください。:")
  68.     if ( VAL < 0 ) {    return    (-1) }
  69.  
  70.     str_off()
  71.     menu_input("PASSWORD",9, x,y, C_YELLOW, "JATIC のパスワードを入力してください。:" )
  72.     RET = VAL;
  73.     if ( RET < 0 ) { str_on();    return    (-1) }
  74.  
  75.  
  76.     PASSWORD2 = "";
  77.     menu_input("PASSWORD2",9, x,y, C_YELLOW, "念のためもういちどパスワードを入力してください。" )
  78.     RET = VAL;
  79.     str_on()
  80.     if ( RET < 0 ) {    return    (-1) }
  81.  
  82.     if ( PASSWORD ! PASSWORD2 )
  83.     {    wind_open()
  84.         graph("symbol",65,56, 8,16, OPAQUE,C_RED,C_HWHITE, 1,0,0,1, "パスワードが違っています！！")
  85.         wait(5)
  86.         wind_close()
  87.         return    (-1)
  88.     }
  89.  
  90.     if ( RET < 0 ) {    return    (-1) }
  91.     strlen(PASSWORD)
  92.     LEN = VAL;
  93.     menu_yes_no(x,y,C_CYAN,"JATIC の ID : \(ID)\x0Aパスワードは \(LEN) 文字指定されています。\x0A\x0A           よろしいですか？")
  94.     if ( VAL > 0 )
  95.     {    _JAT_ID       = ID;
  96.         _JAT_PASSWORD = PASSWORD;
  97.         return    (0)
  98.     }
  99.     return    (-1)
  100. }
  101.  
  102. /*******************************************************************
  103. /*    オートパイロット用 入力行チェックルーチン
  104. /*******************************************************************
  105. AUTO_line {
  106. }
  107.  
  108.